home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / atom_g.dxr / 00008_Vibration Script.ls < prev    next >
Encoding:
Text File  |  1996-09-01  |  551 b   |  16 lines

  1. on exitFrame
  2.   global CentreX, CentreY, loop, Energy
  3.   go(the frame)
  4.   set loop to loop + 1
  5.   if loop >= 22 then
  6.     set loop to 1
  7.   end if
  8.   set CentreX to 640 / 2
  9.   set CentreY to 480 / 2
  10.   set the locH of sprite 7 to integer(CentreX + (50 * line loop of field "A2X"))
  11.   set the locV of sprite 7 to integer(CentreY + (55 * line loop of field "A2Y"))
  12.   set the locH of sprite 8 to integer(CentreX + (50 * line loop of field "A3X"))
  13.   set the locV of sprite 8 to integer(CentreY + (55 * line loop of field "A3Y"))
  14.   puppetTempo(10 * (7 - Energy))
  15. end
  16.